home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00277_Script_TRAVELING_RETOUR < prev    next >
Text File  |  2004-12-05  |  2KB  |  48 lines
  1. global gpiste_Fond,gdemiW_Fond, gL_Home, gNb_Traveltracks,gSens,gdemiH_Fond
  2. property p_Incr
  3. ---------------------------
  4. on getPropertyDescriptionList me
  5.   return [\
  6. #p_Incr:[#comment: "incrΘment retour (en pixels):",#format: #integer, #default: 3]\
  7.  ]
  8. end getPropertyDescriptionList
  9. on exitFrame me
  10.   case(gSens) of
  11.     1:
  12.       if sprite(gpiste_Fond).locH < gdemiW_Fond then
  13.         repeat with i =gpiste_Fond to gpiste_Fond + gNb_Traveltracks
  14.           sprite(i).locH = sprite(i).locH + p_Incr
  15.         end repeat
  16.         go the frame
  17.       else
  18.         sprite(gpiste_Fond).locH = gdemiW_Fond
  19.         repeat with i = 1 to gNb_Traveltracks
  20.           sprite(gpiste_Fond + i).locH = gL_Home[i][1]
  21.         end repeat
  22.         updateStage
  23.       end if
  24.     2:
  25.       if sprite(gpiste_Fond).locV > 456 - gdemiH_Fond then
  26.         repeat with i =gpiste_Fond to gpiste_Fond + gNb_Traveltracks
  27.           sprite(i).locV = sprite(i).locV - p_Incr
  28.         end repeat
  29.         go the frame
  30.       else
  31.         sprite(gpiste_Fond).locV = 456 - gdemiH_Fond
  32.         repeat with i = 1 to gNb_Traveltracks
  33.           sprite(gpiste_Fond + i).locV = gL_Home[i][2]
  34.         end repeat
  35.         updateStage
  36.       end if
  37.   end case
  38. end
  39. --------------------------------------------------------
  40. on mouseUp
  41.   case(gSens) of
  42.     1:
  43.       sprite(gpiste_Fond).locH = gdemiW_Fond
  44.     2:
  45.       sprite(gpiste_Fond).locV = 456- gdemiH_Fond
  46.   end case
  47. end
  48. -----------------------------------------